home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / A / ASU Library.sit / ASU Red Ryder Shell Source / 300 < prev    next >
Encoding:
Text File  |  1988-04-07  |  686 b   |  55 lines  |  [TEXT/MACA]
  1. (300)
  2. COPYINTO B$,S$
  3. CONCAT B$,-E-7-1-FULL
  4. COMM B$
  5. SCREEN ON
  6. CONTAINS L$,TOUCHTONE
  7. IF YES COPYINTO D$,ATDT 
  8. CONTAINS L$,PULSE
  9. IF YES COPYINTO D$,ATDP 
  10. CONCAT D$,N$
  11. TYPE ATH^M
  12. PAUSE
  13. TYPE ATZ^M
  14. PAUSE
  15. DIAL D$
  16. PAUSE
  17. PROMPT NECT
  18. PAUSE 30
  19. TYPE ^M
  20. PAUSE 10
  21. TYPE ^M
  22. PAUSE 10
  23. TYPE ^M
  24. PAUSE 10
  25. TYPE ^M
  26. PAUSE 10
  27. TYPE ^M
  28. PAUSE 10
  29. TYPE ^M
  30. PAUSE 10
  31. TYPE ^M
  32. PAUSE 10
  33. TYPE ^M
  34. PAUSE 10
  35. PROMPT stination:
  36. CONTAINS H$,ACIBM
  37. IF YES TYPE ACIBMPC^M
  38. CONTAINS H$,ADMIN
  39. IF YES TYPE ICIBMPC^M
  40. CONTAINS H$,ACVAX
  41. IF YES TYPE ACVAX^M
  42. CONTAINS H$,LIBR
  43. IF YES TYPE LIBRARY^M
  44. PROMPT CLOSED
  45. CONTAINS H$,LIBR
  46. IF YES JUMPTO LIBR
  47. CONTAINS H$,ACVAX
  48. IF YES END
  49. TYPE ^M
  50. PROMPT NAL TYPE: 
  51. PAUSE
  52. TYPE VT100^M
  53. END
  54. :LIBR
  55. TYPE 2^M